﻿Imports DTO
Imports System.Data.OleDb

Public Class BaoCaoCongNoDAO
    Public Shared Sub Insert(ByVal bc As BaoCaoCongNoDTO)
        Dim sql As String = "insert into BAOCAOCONGNO(MaKhachHang,NgayPhatSinh,NoDau,PhatSinh,NoCuoi) values(" & bc.MaKhachHang & ",'" & bc.NgayPhatSinh & "'," & bc.NoDau & ",'" & bc.PhatSinh & "'," & bc.NoCuoi & ")"
        DatabassProvider.ExcuNonQuery(sql)
    End Sub

    Public Shared Function BaoCaoThang(ByVal thang As Integer) As DataTable
        Dim sql As String = "select * from BAOCAOCONGNO where Month(NgayPhatSinh) like '%" & thang & "%' "
        Return DatabassProvider.ExcuQuery(sql)
    End Function
End Class
